#include "FiveOS2.ch"

static oWnd

//----------------------------------------------------------------------------//

function Main()

   DEFINE WINDOW oWnd TITLE "FiveOS2 1.0 - CA-Clipper for IBM-OS2 library"

   @ 3,  2 BUTTON "~Bye" OF oWnd ACTION oWnd:End() SIZE 70, 25

   @ 3, 15 BUTTON "~Hello" OF oWnd ACTION oWnd:End() SIZE 70, 25

   SET MESSAGE OF oWnd TO "Drawing bitmaps..." CENTERED

   ACTIVATE WINDOW oWnd ;
      VALID MsgYesNo( "Do you want to end ?" )

return nil

//----------------------------------------------------------------------------//
